inherited DistakipiadeListesiF: TDistakipiadeListesiF
  Left = 202
  Top = 119
  Width = 791
  Caption = 'D'#305#351' Takip '#304'ade Listesi'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited Panel1: TPanel
    Width = 783
    inherited BitBtn1: TBitBtn
      Left = 698
    end
    inherited bonayla: TBitBtn
      Left = 296
      Width = 33
      Visible = False
    end
    inherited bsiparisigor: TBitBtn
      Visible = False
    end
    inherited bfaturasikesildi: TBitBtn
      Left = 144
    end
  end
  inherited Panel2: TPanel
    Width = 783
  end
  inherited PageControl1: TPageControl
    Width = 783
    inherited TS1: TTabSheet
      inherited cxgrid1: TcxGrid
        Width = 775
        inherited cxgrid1DBTableView1: TcxGridDBTableView
          Styles.Background = nil
          Styles.Content = nil
          Styles.ContentEven = nil
          Styles.FilterBox = nil
          Styles.Inactive = nil
          Styles.IncSearch = nil
          Styles.Selection = nil
          Styles.Footer = nil
          Styles.Group = nil
          Styles.GroupByBox = nil
          Styles.Header = nil
          Styles.Indicator = nil
          Styles.Preview = nil
        end
      end
    end
    inherited TS2: TTabSheet
      inherited cxGrid2: TcxGrid
        inherited cxGridDBTableView1: TcxGridDBTableView
          Styles.Background = nil
          Styles.Content = nil
          Styles.ContentEven = nil
          Styles.FilterBox = nil
          Styles.Inactive = nil
          Styles.IncSearch = nil
          Styles.Selection = nil
          Styles.Footer = nil
          Styles.Group = nil
          Styles.GroupByBox = nil
          Styles.Header = nil
          Styles.Indicator = nil
          Styles.Preview = nil
        end
      end
    end
  end
  inherited TeknikOnayListesiQ: TADOQuery
    SQL.Strings = (
      
        'select ambari=(select depoadi from depolar where depolar.id=tekn' +
        'iksiparis.ambar),firmaadi=(select dbo.getfirmaadi(carikod) from ' +
        'distakip where distakip.formno=tekniksiparis.teknikformno),* fro' +
        'm tekniksiparis '
      'where tipi='#39'D'#39' and islemdurum is null'
      '')
  end
  inherited OnaylaQ: TADOQuery
    Left = 656
    Top = 40
  end
  inherited FaturaOnaylaQ: TADOQuery
    Parameters = <
      item
        Name = 'unitybelgeno'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'unitytarih'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'formno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update tekniksiparis'
      
        'set islemdurum='#39'1'#39',unitybelgeno=:unitybelgeno,unitytarih=:unityt' +
        'arih'
      'where teknikformno=:formno'
      '')
    Left = 456
  end
  object DistakipQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'formno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from distakip'
      'where formno=:formno ')
    Left = 256
    Top = 40
  end
end
